Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
G
gargantext-ihaskell
Project
Project
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
gargantext
gargantext-ihaskell
Commits
6e82ef36
Commit
6e82ef36
authored
Aug 28, 2015
by
Andrew Gibiansky
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Fix formatting in Juicypixel.hs
parent
89c52019
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
6 additions
and
9 deletions
+6
-9
Juicypixels.hs
...play/ihaskell-juicypixels/IHaskell/Display/Juicypixels.hs
+6
-9
No files found.
ihaskell-display/ihaskell-juicypixels/IHaskell/Display/Juicypixels.hs
View file @
6e82ef36
{-# LANGUAGE TypeSynonymInstances, FlexibleInstances #-}
module
IHaskell.Display.Juicypixels
(
module
IHaskell
.
Display
,
module
Codec
.
Picture
)
where
module
IHaskell.Display.Juicypixels
(
module
IHaskell
.
Display
,
module
Codec
.
Picture
)
where
import
qualified
Codec.Picture
as
P
import
Codec.Picture
(
Image
(
..
))
import
Codec.Picture.Png
(
PngSavable
,
encodePng
)
import
IHaskell.Display
(
IHaskellDisplay
,
Display
(
..
),
display
,
png
,
base64
)
import
Data.ByteString.Lazy
(
ByteString
,
toStrict
)
import
Codec.Picture
(
Image
(
..
))
import
Codec.Picture.Png
(
PngSavable
,
encodePng
)
import
IHaskell.Display
(
IHaskellDisplay
,
Display
(
..
),
display
,
png
,
base64
)
import
Data.ByteString.Lazy
(
ByteString
,
toStrict
)
instance
IHaskellDisplay
(
Image
P
.
Pixel8
)
where
display
=
return
.
format
...
...
@@ -36,4 +33,4 @@ instance IHaskellDisplay (Image P.PixelRGBA16) where
display
=
return
.
format
format
::
PngSavable
a
=>
Image
a
->
Display
format
im
@
(
Image
w
h
_
)
=
Display
[
png
w
h
.
base64
.
toStrict
.
encodePng
$
im
]
\ No newline at end of file
format
im
@
(
Image
w
h
_
)
=
Display
[
png
w
h
.
base64
.
toStrict
.
encodePng
$
im
]
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment