blob: 89a92faaf55ff83eb0da1ab11bee7eaff73304c2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
----------------------------------------------------------------------
-- |
-- Module : ArchEdit
-- Maintainer : AR
-- Stability : (stable)
-- Portability : (portable)
--
-- > CVS $Date: 2005/03/30 12:41:12 $
-- > CVS $Author: aarne $
-- > CVS $Revision: 1.1 $
--
-- (Description of the module)
-----------------------------------------------------------------------------
module ArchEdit (
fudlogueEdit, fudlogueWrite, fudlogueWriteUni
) where
fudlogueEdit :: a -> b -> IO ()
fudlogueEdit _ _ = do
putStrLn "sorry no fudgets available in Hugs"
return ()
fudlogueWrite :: a -> b -> IO ()
fudlogueWrite _ _ = do
putStrLn "sorry no fudgets available in Hugs"
fudlogueWriteUni :: a -> b -> IO ()
fudlogueWriteUni _ _ = do
putStrLn "sorry no fudgets available in Hugs"
|
