> module SomeApp (
>   runSomeApp
> , SomeConfig
> , defaultSomeConfig
> ) where

> data SomeConfig = SomeConfig { some :: String, other :: String } deriving Show

> runSomeApp :: SomeConfig -> IO ()
> runSomeApp cfg = print cfg

> defaultSomeConfig :: SomeConfig
> defaultSomeConfig = SomeConfig "something" "others"