create Network.GemServ module

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

src/Lib.hs

@@ -1,6 +0,0 @@
-module Lib
-    ( someFunc
-    ) where
-
-someFunc :: IO ()
-someFunc = putStrLn "someFunc"

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
+<https://www.gnu.org/licenses/>.
+
+-}
+
+module Network.GemServ where
+
+--jl

test/Network/GemServSpec.hs

@@ -0,0 +1,30 @@
+{-
+
+gemserv
+
+Cooyright (C) Jonathan Lamothe <jonathan@jlamothe.net>
+
+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
+<https://www.gnu.org/licenses/>.
+
+-}
+
+module Network.GemServSpec (spec) where
+
+import Test.Hspec (Spec, describe)
+
+spec :: Spec
+spec = describe "Network.GemServ" $ return ()
+
+--jl

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