mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-20 08:32:50 -06:00
ArchEdit moved; spanish/Structural now works
This commit is contained in:
30
src/GF/System/ArchEdit.hs
Normal file
30
src/GF/System/ArchEdit.hs
Normal file
@@ -0,0 +1,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"
|
||||||
Reference in New Issue
Block a user