blob: c3e2a82323b1ebca1b863abe607ecddf77316e94 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
{-# LANGUAGE DeriveDataTypeable #-}
module Annfail03 where
-- Testing annotating something with a value defined + Typeabled / Dataed in same module
import Data.Data
import Data.Typeable
data InModule = InModule
deriving (Typeable, Data)
{-# ANN module InModule #-}
{-# ANN type Foo InModule #-}
data Foo = Bar
{-# ANN f InModule #-}
f x = x
|
