main :: IO ()
main = do args <- getArgs
          case args of
            [f] -> newDB f
            _   -> hPutStrLn stderr "Usage: flatdb-create <file>"
main :: IO ()
main = do args <- getArgs
          case args of
            [f] -> newDB f
            _   -> hPutStrLn stderr "Usage: flatdb-create <file>"
main = do args <- getArgs
          case args of
            [f] -> newDB f
            _   -> hPutStrLn stderr "Usage: flatdb-create <file>"