main :: IO ()
main = getArgs >>= \case
        [] -> getNote 
        text -> return (unwords text)
       >>= \note ->
       openDefaultDb >>= \db_file ->
       saveNote db_file note >>
       return ()
main :: IO ()
main = getArgs >>= \case
        [] -> getNote 
        text -> return (unwords text)
       >>= \note ->
       openDefaultDb >>= \db_file ->
       saveNote db_file note >>
       return ()
main = getArgs >>= \case
        [] -> getNote 
        text -> return (unwords text)
       >>= \note ->
       openDefaultDb >>= \db_file ->
       saveNote db_file note >>
       return ()