----------------------------------------------------------------------------- -- -- Module : @ModuleName@ -- Copyright : @Copyright@ -- License : @License@ -- -- Maintainer : @Maintainer@ -- Stability : @Stability@ -- Portability : @Portability@ -- -- | -- ----------------------------------------------------------------------------- module @ModuleName@ ( main ) where import Data.List (stripPrefix) -- | Simple function to create a hello message. -- prop> stripPrefix "Hello " (hello s) == Just s hello s = "Hello " ++ s main = do putStrLn (hello "World")