diff --git a/gemserv.cabal b/gemserv.cabal index 963cdaa..a0adb24 100644 --- a/gemserv.cabal +++ b/gemserv.cabal @@ -21,7 +21,7 @@ extra-source-files: library exposed-modules: - Lib + Network.GemServ other-modules: Paths_gemserv hs-source-dirs: @@ -38,6 +38,7 @@ test-suite gemserv-test type: exitcode-stdio-1.0 main-is: Spec.hs other-modules: + Network.GemServSpec Paths_gemserv hs-source-dirs: test diff --git a/src/Lib.hs b/src/Lib.hs deleted file mode 100644 index d36ff27..0000000 --- a/src/Lib.hs +++ /dev/null @@ -1,6 +0,0 @@ -module Lib - ( someFunc - ) where - -someFunc :: IO () -someFunc = putStrLn "someFunc" diff --git a/src/Network/GemServ.hs b/src/Network/GemServ.hs new file mode 100644 index 0000000..be34ef5 --- /dev/null +++ b/src/Network/GemServ.hs @@ -0,0 +1,29 @@ +{-| + +Module : Network.GemServ +Description : Gemini Server Stuff +Copyright : (C) Jonathan Lamothe +License : AGPL-3.0-or-later +Maintainer : jonathan@jlamothe.net +Stability : experimental +Portability : POSIX + +This program is free software: you can redistribute it and/or modify +it under the terms of the GNU Affero General Public License as +published by the Free Software Foundation, either version 3 of the +License, or (at your option) any later version. + +This program is distributed in the hope that it will be useful, but +WITHOUT ANY WARRANTY; without even the implied warranty of +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +Affero General Public License for more details. + +You should have received a copy of the GNU Affero General Public +License along with this program. If not, see +. + +-} + +module Network.GemServ where + +--jl diff --git a/test/Network/GemServSpec.hs b/test/Network/GemServSpec.hs new file mode 100644 index 0000000..c8d7e3d --- /dev/null +++ b/test/Network/GemServSpec.hs @@ -0,0 +1,30 @@ +{- + +gemserv + +Cooyright (C) Jonathan Lamothe + +This program is free software: you can redistribute it and/or modify +it under the terms of the GNU Affero General Public License as +published by the Free Software Foundation, either version 3 of the +License, or (at your option) any later version. + +This program is distributed in the hope that it will be useful, but +WITHOUT ANY WARRANTY; without even the implied warranty of +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +Affero General Public License for more details. + +You should have received a copy of the GNU Affero General Public +License along with this program. If not, see +. + +-} + +module Network.GemServSpec (spec) where + +import Test.Hspec (Spec, describe) + +spec :: Spec +spec = describe "Network.GemServ" $ return () + +--jl diff --git a/test/Spec.hs b/test/Spec.hs index 507276c..93ef0bb 100644 --- a/test/Spec.hs +++ b/test/Spec.hs @@ -23,8 +23,9 @@ License along with this program. If not, see module Main (main) where import Test.Hspec (hspec) +import qualified Network.GemServSpec as GemServ main :: IO () -main = hspec $ return () +main = hspec GemServ.spec --jl