<div dir="ltr"><span style="font-size:12.8px">> "Trees that grows"</span><br><div><span style="font-size:12.8px"><br></span></div><div><span style="font-size:12.8px">this (type families), or Tagged</span></div><div><span style="font-size:12.8px"><a href="http://hackage.haskell.org/package/tagged-0.8.5/docs/Data-Tagged.html">http://hackage.haskell.org/package/tagged-0.8.5/docs/Data-Tagged.html</a></span><br></div><div><span style="font-size:12.8px"><br></span></div><div><span style="font-size:12.8px">data Checked = Checked</span></div><div><span style="font-size:12.8px"><br>  Tagged Checked a</span></div><div><span style="font-size:12.8px"><br></span></div><div><span style="font-size:12.8px"><br></span></div></div><div class="gmail_extra"><br><div class="gmail_quote">On 6 July 2017 at 16:09, Sylvain Henry <span dir="ltr"><<a href="mailto:sylvain@haskus.fr" target="_blank">sylvain@haskus.fr</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Hi,<br>
<br>
You can use something similar to "Trees that grows" in GHC:<br>
<br>
{-# LANGUAGE TypeFamilies #-}<br>
{-# LANGUAGE StandaloneDeriving #-}<br>
{-# LANGUAGE FlexibleContexts #-}<br>
{-# LANGUAGE UndecidableInstances #-}<br>
<br>
module Main where<br>
<br>
import Data.Maybe<br>
<br>
data Checked   = Checked   deriving (Show)<br>
data Unchecked = Unchecked deriving (Show)<br>
<br>
type family F a b :: * where<br>
   F Unchecked b = Maybe b<br>
   F Checked   b = b<br>
<br>
-- data types are decorated with a phantom type indicating if they have been checked<br>
-- in which case "Maybe X" are replaced with "X" (see F above)<br>
data A c = A<br>
   { a1 :: F c (B c)<br>
   }<br>
<br>
data B c = B<br>
   { b1 :: F c (C c)<br>
   }<br>
<br>
data C c = C<br>
   { c1 :: F c Int<br>
   }<br>
<br>
deriving instance Show (F c (B c)) => Show (A c)<br>
deriving instance Show (F c (C c)) => Show (B c)<br>
deriving instance Show (F c Int)   => Show (C c)<br>
<br>
class Checkable a where<br>
   check :: a Unchecked -> a Checked<br>
<br>
instance Checkable A where<br>
   check (A mb) = A (check (fromJust mb))<br>
<br>
instance Checkable B where<br>
   check (B mc) = B (check (fromJust mc))<br>
<br>
instance Checkable C where<br>
   check (C mi) = C (fromJust mi)<br>
<br>
main :: IO ()<br>
main = do<br>
   let<br>
      a :: A Unchecked<br>
      a = A (Just (B (Just (C (Just 10)))))<br>
<br>
      a' :: A Checked<br>
      a' = check a<br>
   print a<br>
   print a'<br>
<br>
<br>
$> ./Test<br>
A {a1 = Just (B {b1 = Just (C {c1 = Just 10})})}<br>
A {a1 = B {b1 = C {c1 = 10}}}<br>
<br>
<br>
Cheers,<br>
Sylvain<div class="HOEnZb"><div class="h5"><br>
<br>
<br>
On 06/07/2017 10:12, Baa wrote:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
Hello Dear List!<br>
<br>
Consider, I retrieve from external source some data. Internally it's<br>
represented as some complex type with `Maybe` fields, even more, some<br>
of fields are record types and have `Maybe` fields too. They are<br>
Maybe's because some information in this data can be missing (user<br>
error or it not very valuable and can be skipped):<br>
<br>
   data A = A {<br>
     a1 :: Maybe B<br>
     ... }<br>
   data B = B {<br>
     b1 :: Maybe C<br>
     ... }<br>
<br>
I retrieve it from network, files, i.e. external world, then I validate<br>
it, report errors of some missing fields, fix another one (which can be<br>
fixed, for example, replace Nothing with `Just default_value` or even I<br>
can fix `Just wrong` to `Just right`, etc, etc). After all of this, I<br>
know that I have "clean" data, so all my complex types now have `Just<br>
right_value` fields. But I need to process them as optional, with<br>
possible Nothing case! To avoid it I must create copies of `A`, `B`,<br>
etc, where `a1`, `b1` will be `B`, `C`, not `Maybe B`, `Maybe C`. Sure,<br>
it's not a case.<br>
<br>
After processing and filtering, I create, for example, some resulting<br>
objects:<br>
<br>
   data Result {<br>
     a :: A -- not Maybe!<br>
     ... }<br>
<br>
And even more: `a::A` in `Result` (I know it, after filtering) will not<br>
contain Nothings, only `Just right_values`s.<br>
<br>
But each function which consumes `A` must do something with possible<br>
Nothing values even after filtering and fixing of `A`s.<br>
<br>
I have, for example, function:<br>
<br>
   createResults :: [A] -> [Result]<br>
   createResults alst =<br>
     ...<br>
     case of (a1 theA) -><br>
       Just right_value -> ...<br>
       Nothing -><br>
         logError<br>
         undefined -- can not happen<br>
<br>
Fun here is: that it happens (I found bug in my filtering<br>
code with this `undefined`). But now I thought about it: what is the<br>
idiomatic way to solve such situation? When you need to have:<br>
<br>
   - COMPLEX type WITH Maybes<br>
   - the same type WITHOUT Maybes<br>
<br>
Alternative is to keep this Maybes to the very end of processing, what I<br>
don't like. Or to have types copies, which is more terrible, sure.<br>
<br>
PS. I threw IOs away to show only the crux of the problem.<br>
<br>
---<br>
Cheers,<br>
   Paul<br>
______________________________<wbr>_________________<br>
Beginners mailing list<br>
<a href="mailto:Beginners@haskell.org" target="_blank">Beginners@haskell.org</a><br>
<a href="http://mail.haskell.org/cgi-bin/mailman/listinfo/beginners" rel="noreferrer" target="_blank">http://mail.haskell.org/cgi-bi<wbr>n/mailman/listinfo/beginners</a><br>
</blockquote>
<br>
______________________________<wbr>_________________<br>
Beginners mailing list<br>
<a href="mailto:Beginners@haskell.org" target="_blank">Beginners@haskell.org</a><br>
<a href="http://mail.haskell.org/cgi-bin/mailman/listinfo/beginners" rel="noreferrer" target="_blank">http://mail.haskell.org/cgi-bi<wbr>n/mailman/listinfo/beginners</a><br>
</div></div></blockquote></div><br></div>