blob: 39b558cef75973a3235101c76d09fb45551d55da (
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/04/21 16:46:15 $
-- > CVS $Author: bringert $
-- > CVS $Revision: 1.2 $
--
-- (Description of the module)
-----------------------------------------------------------------------------
module GF.System.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"
|
